home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog Special Edition 11
/
FreelogHS11.iso
/
Démos&Merveilles
/
Realtime Radiosity 2
/
rr2.plg
< prev
next >
Wrap
Text File
|
2000-09-16
|
18KB
|
571 lines
########################################################
#### rr2 / broncs -> sagvan script by redoks^broncs ####
########################################################
#
############ const.plg ############
const.plg:script{
##################################################
# standard constants database #
##################################################
# oscilator
sinus=constant(k=1);
square=constant(k=2);
saw=constant(k=0);
timer=constant(k=3);
clock=constant(k=4);
# fork & selector
automat=constant(k=0);
handler=constant(k=1);
switch=constant(k=2);
# mouse
axis_x=constant(k=0);
axis_y=constant(k=1);
# plazma
solid=constant(k=0);
rgb=constant(k=1);
# path
opened=constant(k=0);
closed=constant(k=1);
linear_opened=constant(k=2);
linear_closed=constant(k=3);
# mixer
copy=constant(k=2);
add=constant(k=3);
sub=constant(k=17);
clear=constant(k=7);
alpha=constant(k=6);
invert=constant(k=12);
stream=constant(k=0);
bump=constant(k=13);
ver_blur=constant(k=10);
hor_blur=constant(k=11);
blur=constant(k=21);
texture=constant(k=1);
transluency=constant(k=4);
transparency=constant(k=5);
transparency_add=constant(k=8);
translusparency=constant(k=9);
# text
left=constant(k=0);
right=constant(k=1);
center=constant(k=2);
# light
sqrtdiv=constant(k=0);
sqrt=constant(k=1);
div=constant(k=2);
sqrtdiv_add=constant(k=3);
sqrt_add=constant(k=4);
div_add=constant(k=5);
# mirror
quarter=constant(k=2);
hor_half=constant(k=0);
ver_half=constant(k=1);
flip=constant(k=3);
# loop
clip=constant(k=0);
resize=constant(k=1);
# warper
shaded=constant(k=1);
normal=constant(k=0);
# mapper
tunnel=constant(k=1);
plane=constant(k=0);
sphere=constant(k=2);
shaded_plane=constant(k=3);
shaded_tunnel=constant(k=4);
shaded_sphere=constant(k=5);
# object
flat=constant(k=1);
wire=constant(k=0);
phong=constant(k=2);
glenz=constant(k=3);
vector=constant(k=4);
gouraud=constant(k=5);
flat_texture=constant(k=6);
env=constant(k=7);
phong_texture=constant(k=8);
gouraud_texture=constant(k=9);
circle=constant(k=10);
# flubber
basic=constant(k=0);
light=constant(k=1);
zbuffer=constant(k=2);
light_zbufer=constant(k=3);
#
};
############ broncs.plg ############
broncs.plg:script{
<const.plg>
#
t1=texture(in=bronsc4.png);
t2=texture(in=bronsc5.png);
t3=texture(in=bronsc1.png);
t4=texture(in=bronsc3.png);
t5=texture(in=bronsc2.png);
#
clk=oscilator(fce=clock);
io=oscilator(amp=128,add=128,freq=0.5);
bo=path(time=clk,type=linear_opened,num=6,y=20,15,10,7,5,0);
sp=path(time=clk,type=linear_opened,num=3,y=255,128,0);
yp=path(time=clk,num=6,y=-200,-100,-50,0,10,0);
#
bkg=mixer(tex=t1,op=copy);
trans=mixer(in=bkg,tex=t2,op=transluency,int=io);
#
tt5=mixer(in=kwin,tex=t5,op=sub,int=255);
cpyt3=mixer(tex=t3,op=copy);
blr=mixer(in=cpyt3,op=ver_blur,int=bo);
mixblurr=mixer(in=bwin,tex=blr,op=sub,int=255);
tt4=mixer(in=wwin,tex=t4,op=translusparency,int=128);
wwin=window(in=trans,win=tt4,x=30,y=95,w=260,h=80);
bwin=window(in=wwin,win=mixblurr,x=42,y=94,w=250,h=75);
kwin=window(in=bwin,win=tt5,x=100,y=yp,w=140,h=115);
output=screen(in=kwin,shade=sp);
#
};
############ disko.plg ############
disko.plg:script{
<const.plg>
#
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=5);
ot=oscilator(fce=clock,freq=25);
op=oscilator(fce=saw,amp=100,freq=0.2);
rr=scene(fps=70,camera=0,xfov=128,yfov=128,name=disko,cf=ct,of=op);
sh=path(time=clk,type=linear_opened,num=2,y=-255,0);
output:screen(in=rr,shade=sh);
#
};
############ dvere.plg ############
dvere.plg:script{
<const.plg>
#
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=6);
ot=oscilator(fce=clock,freq=6);
cls=mixer(op=clear);
oclk=oscilator(fce=clock,freq=0.1);
cclk=oscilator(fce=clock,freq=0.06);
op=path(time=oclk,type=linear_opened,num=3,y=0,195,0);
cp=path(time=cclk,type=linear_closed,num=2,y=0,199);
rr=scene(in=cls,fps=70,camera=0,
xfov=128,yfov=128,name=dvere,cf=cp,of=op);
sh=path(time=clk,type=linear_opened,num=2,y=-255,0);
output:screen(in=rr,shade=sh);
#output:screen(in=rr);
#
};
############ jidelna.plg ############
jidelna.plg:script{
<const.plg>
#
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=4);
ot=oscilator(fce=clock,freq=60);
rr=scene(fps=70,camera=0,xfov=128,yfov=128,name=jidelna,cf=ct,of=ot);
sh=path(time=clk,type=linear_opened,num=2,y=-255,0);
output:screen(in=rr,shade=sh);
#
};
############ kola.plg ############
kola.plg:script{
<const.plg>
#
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=3);
ot=oscilator(fce=clock,freq=20);
rr=scene(fps=70,camera=0,xfov=128,yfov=128,name=kola,cf=ct,of=ot);
sh=path(time=clk,type=linear_opened,num=2,y=-255,0);
output:screen(in=rr,shade=sh);
#
};
############ p_disko.plg ############
p_disko.plg:script{
<const.plg>
#
tb=texture(in=future1.png);
tf=texture(in=future2.png);
pclk=oscilator(fce=clock,freq=0.2);
pclk2=oscilator(fce=clock,freq=0.2,phase=0.5);
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=10);
ot=oscilator(fce=clock,freq=20);
#cls=mixer(op=clear,red=255,green=255,blue=255);
cpy=mixer(tex=tb,op=copy);
#
io=path(time=clk,type=linear_closed,num=2,y=0,255);
xp=path(time=clk,type=linear_opened,num=4,y=-320,-160,-80,0);
#
cls=mixer(tex=s1,op=copy);
#tmix=mixer(in=twin,tex=tt,op=transluency,int=io);
#twin=window(in=rrwin,win=tmix,h=35);
#
spc=path(time=clk,num=4,y=100,50,25,0);
title=text(in=rrwin,str=our_future_is_black,r=0,g=0,b=0,
x=80,y=20,space=spc,org=left,font=winds.fnt);
#
transmix=mixer(in=cls,tex=tf,op=transparency,int=64);
cls=window(in=title,win=transmix,x=xp);
#
frm=path(time=pclk,type=linear_closed,num=2,y=0,7);
yp=path(time=pclk,type=linear_opened,num=2,y=300,0);
#
rrart=art(id=1,in=rrwin,camera=1,name=disko.bzp,cf=ct,of=ot);
rrwin=window(in=cpy,win=rrart,x=100,y=100,h=200);
#
wirez=cad(in=cls,ani=panacek.cad,fnt=num.fnt,x=170,y=-20,
scale=3,frame=frm,sg=128,fr=128,li=-128);
#
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
#
vec=object(in=wirez,a=aa,b=aa,c=aa,obj=boxik.vec,
rr=16,gg=16,bb=16,frame=of,type=wire,x=-200,y=-200,z=-100);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec,shade=sp);
#
};
############ p_dvere.plg ############
p_dvere.plg:script{
<const.plg>
#
tb=texture(in=c2.png);
tf=texture(in=c1.png);
tt=texture(in=c3.png);
#
pclk=oscilator(fce=clock,freq=0.2);
pclk2=oscilator(fce=clock,freq=0.2,phase=0.5);
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=10);
ot=oscilator(fce=clock,freq=20);
#cls=mixer(op=clear,red=255,green=255,blue=255);
cpy=mixer(tex=tb,op=copy);
#
io=path(time=clk,type=linear_closed,num=2,y=0,255);
yp=path(time=pclk,type=linear_opened,num=2,y=300,2);
#
cls=mixer(tex=s1,op=copy);
tmix=mixer(in=twin,tex=tt,op=transluency,int=io);
twin=window(in=rrwin,win=tmix,x=55,y=30,w=150,h=20);
#
transmix=mixer(in=cls,tex=tf,op=transparency,int=64);
cls=window(in=twin,win=transmix,y=yp);
#
frm=path(time=pclk,type=linear_closed,num=2,y=0,4);
#
rrart=art(id=4,in=rrwin,camera=1,name=dvere.bzp,cf=ct,of=ot);
rrwin=window(in=cpy,win=rrart,x=-50,y=-30,h=200);
#
wirez=cad(in=cls,ani=domecek.cad,fnt=num.fnt,
y=70,scale=3,frame=frm,sg=128,fr=128,li=220);
#
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
#
vec1=object(in=wirez,a=aa,b=aa,c=aa,obj=koules.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,x=200,y=-300,z=100);
#
vec2=object(in=vec1,a=aa,b=aa,c=aa,obj=boxik.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,x=300,y=300,z=150);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec2,shade=sp);
#
};
############ p_jidel.plg ############
p_jidel.plg:script{
<const.plg>
#
tb=texture(in=family.png);
pclk=oscilator(fce=clock,freq=0.2);
pclk2=oscilator(fce=clock,freq=0.2,phase=0.5);
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=10);
ot=oscilator(fce=clock,freq=20);
#
io=path(time=clk,type=linear_closed,num=2,y=0,255);
yp=path(time=clk,type=linear_opened,num=2,y=300,0);
#
cls=mixer(tex=tb,op=copy);
#
frm=path(time=pclk,type=linear_closed,num=2,y=0,10);
yp=path(time=pclk,type=linear_opened,num=2,y=300,60);
#
rrart=art(id=2,in=rrwin,camera=1,name=jidelna.bzp,cf=ct,of=ot);
rrwin=window(in=cls,win=rrart,y=-40,h=200);
#
wirez=cad(in=rrwin,ani=auticko.cad,fnt=num.fnt,
y=50,scale=2.5,frame=frm,sg=190,fg=255,fr=128,li=200);
#
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
#
vec=object(in=wirez,a=aa,b=aa,c=aa,obj=koule.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,z=-100);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec,shade=sp);
#
};
############ p_kola.plg ############
p_kola.plg:script{
<const.plg>
#
tb=texture(in=h2.png);
tf=texture(in=h1.png);
tt=texture(in=h3.png);
pclk=oscilator(fce=clock,freq=0.2);
pclk2=oscilator(fce=clock,freq=0.2,phase=0.5);
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=10);
ot=oscilator(fce=clock,freq=20);
#cls=mixer(op=clear,red=255,green=255,blue=255);
cpy=mixer(tex=tb,op=copy);
#
io=path(time=clk,type=linear_closed,num=2,y=0,255);
yp=path(time=clk,type=linear_opened,num=2,y=300,0);
#
cls=mixer(tex=s1,op=copy);
tmix=mixer(in=twin,tex=tt,op=transluency,int=io);
twin=window(in=rrwin,win=tmix,h=35);
#
transmix=mixer(in=cls,tex=tf,op=transparency,int=64);
cls=window(in=twin,win=transmix,x=90,y=yp,w=130,h=205);
#
frm=path(time=pclk,type=linear_closed,num=2,y=0,7);
yp=path(time=pclk,type=linear_opened,num=2,y=300,60);
#
rrart=art(id=0,in=rrwin,camera=1,name=kola.bzp,cf=ct,of=ot);
rrwin=window(in=cpy,win=rrart,x=100,y=60,h=200);
#
wirez=cad(in=cls,ani=jerab.cad,fnt=num.fnt,
x=-50,y=-30,scale=2,frame=frm,sg=128,fr=128,li=-128);
#
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
#
vec=object(in=wirez,a=aa,b=aa,c=aa,obj=bodak.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,y=-200,z=-100);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec,shade=sp);
#
};
############ p_zrcad.plg ############
p_zrcad.plg:script{
<const.plg>
#
tb=texture(in=gang1.png);
tf=texture(in=gang2.png);
tt=texture(in=gang.png);
#
pclk=oscilator(fce=clock,freq=0.2);
pclk2=oscilator(fce=clock,freq=0.2,phase=0.5);
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=10);
ot=oscilator(fce=clock,freq=20);
#cls=mixer(op=clear,red=255,green=255,blue=255);
cpy=mixer(tex=tb,op=copy);
#
io=path(time=clk,type=linear_closed,num=2,y=0,255);
xp=path(time=clk,type=linear_opened,num=4,y=320,250,200,160);
#
cls=mixer(tex=s1,op=copy);
tmix=mixer(in=twin,tex=tt,op=transluency,int=io);
twin=window(in=rrwin,win=tmix,y=110,w=170,h=20);
#
transmix=mixer(in=cls,tex=tf,op=transparency,int=64);
cls=window(in=twin,win=transmix,x=xp,w=160);
#
frm=path(time=pclk,type=linear_closed,num=2,y=0,4);
yp=path(time=pclk,type=linear_opened,num=2,y=300,60);
#
rrart=art(id=3,in=rrwin,camera=1,name=zrcadlo.bzp,cf=ct,of=ot);
rrwin=window(in=cpy,win=rrart,x=-80,y=100,h=200);
#
wirez=cad(in=cls,ani=kostka.cad,fnt=num.fnt,
x=-25,y=-30,scale=3,frame=frm,sg=128,fr=128,li=-128);
#
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
#
vec=object(in=wirez,a=aa,b=aa,c=aa,obj=boxik.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,x=200,y=-200,z=-100);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec,shade=sp);
#
};
############ rr2.plg ############
rr2.plg:script{
<const.plg>
#
t1=texture(in=rr21.png);
t2=texture(in=rr22.png);
t3=texture(in=rr23.png);
#
clk=oscilator(fce=clock);
io=oscilator(amp=128,add=128,freq=0.5);
bo=path(time=clk,type=linear_opened,num=6,y=20,15,10,7,5,0);
sp=path(time=clk,type=linear_opened,num=3,y=255,128,0);
xp=path(time=clk,num=8,type=closed,y=-320,0,0,0,0,0,0,320);
#
bkg=mixer(tex=t1,op=copy);
of=oscilator(fce=clock,freq=2);
aa=oscilator(fce=0,amp=6.28,freq=0.1);
trans=mixer(in=bkg,tex=t2,op=transluency,int=io);
#
rrmix=mixer(in=rrwin,tex=t3,op=sub,int=255);
rrwin=window(in=trans,win=rrmix,x=xp);
vec=object(in=rrwin,a=aa,b=aa,c=aa,obj=boxik.vec,
rr=16,gg=16,bb=16,frame=of,type=circle,z=-100);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=vec,shade=sp);
#
};
############ sagvan.plg ############
sagvan.plg:script{
<const.plg>
#
clss=mixer(op=clear);
#
orgf=constant(k=0.4);
alfa1=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=0);
alfa2=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=0.78);
alfa3=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=1.57);
alfa4=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=2.35);
alfa5=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=3.14);
alfa6=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=3.92);
alfa7=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=4.70);
alfa8=oscilator(fce=0,amp=6.28,add=0,freq=orgf,phase=5.48);
#
orgd=constant(k=700);
dist0=oscilator(fce=1,amp=100,add=orgd,freq=0.25,phase=0);
dist1=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=0);
dist2=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=0.78);
dist3=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=1.57);
dist4=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=2.35);
dist5=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=3.14);
dist6=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=3.92);
dist7=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=4.70);
dist8=oscilator(fce=1,amp=150,add=orgd,freq=0.5,phase=5.48);
#
#orgx=constant(k=45);
orgx=path(time=pclk,num=14,y=-200,-160,-50,0,50,45,45,45,45,45,45,0,-50,-200);
pap1=object(in=clss,obj=sag3.vec,x=orgx,y=120,z=dist1,a=-1.57,b=3.14,c=alfa1,type=vector);
pap2=object(in=pap1,obj=sag3.vec,x=orgx,y=120,z=dist2,a=-1.57,b=3.14,c=alfa2,type=vector);
pap3=object(in=pap2,obj=sag3.vec,x=orgx,y=120,z=dist3,a=-1.57,b=3.14,c=alfa3,type=vector);
pap4=object(in=pap3,obj=sag3.vec,x=orgx,y=120,z=dist4,a=-1.57,b=3.14,c=alfa4,type=vector);
pap5=object(in=pap4,obj=sag3.vec,x=orgx,y=120,z=dist5,a=-1.57,b=3.14,c=alfa5,type=vector);
pap6=object(in=pap5,obj=sag3.vec,x=orgx,y=120,z=dist6,a=-1.57,b=3.14,c=alfa6,type=vector);
pap7=object(in=pap6,obj=sag3.vec,x=orgx,y=120,z=dist7,a=-1.57,b=3.14,c=alfa7,type=vector);
pap8=object(in=pap7,obj=sag3.vec,x=orgx,y=120,z=dist8,a=-1.57,b=3.14,c=alfa8,type=vector);
kruh=object(in=pap8,obj=sag2.vec,x=orgx,y=120,z=dist0,a=-1.57,b=3.14,c=alfa1,type=vector);
_s_=object(in=kruh,obj=sag_s.vec,x=orgx,y=120,z=dist0,a=-1.57,b=0,c=3.14,type=vector);
#
cls=mixer(op=clear);
blurr=mixer(tex=_s_,op=transluency,int=128);
bwin=window(in=cls,win=blurr,w=170);
pclk=oscilator(fce=clock);
pclk2=oscilator(fce=clock,phase=-10);
spc=path(time=pclk,num=6,y=250,200,100,50,25,5);
tx=path(time=pclk2,num=3,y=310,350,500);
title=text(g=255,r=255,b=255,in=bwin,str=beyond_sagvan,
x=tx,y=115,space=spc,org=right,font=winds.fnt);
#
output=screen(in=title);
#
};
############ sheepz.plg ############
sheepz.plg:script{
#
<const.plg>
#
st=texture(in=sheepzt.png);
s1=texture(in=sheepz1.png);
s2=texture(in=sheepz2.png);
#
clk=oscilator(fce=clock,freq=0.5);
#
frm=path(time=clk,type=linear_closed,num=2,y=0,11);
io=path(time=clk,type=linear_closed,num=2,y=0,255);
yp=path(time=clk,type=linear_opened,num=8,y=300,0,0,0,0,0,0,300);
#
cls=mixer(tex=s1,op=copy);
tmix=mixer(in=twin,tex=st,op=transluency,int=io);
twin=window(in=cls,win=tmix,y=10,h=25);
wirez=cad(in=twin,ani=thales.cad,fnt=num.fnt,x=30,y=-20,
scale=3,frame=frm,sg=64,li=-128);
transmix=mixer(in=trans,tex=s2,op=transparency);
trans=window(in=wirez,win=transmix,y=yp);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=trans,shade=sp);
#
};
############ titles.plg ############
titles.plg:script{
<const.plg>
#
t1=texture(in=bronsc4.png);
t2=texture(in=bronsc5.png);
adder=texture(in=adder.png);
deement=texture(in=deement.png);
hellboy=texture(in=hellboy.png);
redocs=texture(in=redocs.png);
shakul=texture(in=shakul.png);
tadder=texture(in=tadder.png);
tdeement=texture(in=tdeement.png);
thellboy=texture(in=thellboy.png);
tredocs=texture(in=tredocs.png);
tshakul=texture(in=tshakul.png);
bronx=texture(in=bronx.png);
nobel=texture(in=nobel.png);
vedci=texture(in=vedci.png);
#
clk=oscilator(fce=clock);
io=path(time=clk,type=linear_closed,num=2,y=0,255);
io2=path(time=clk,type=linear_closed,num=8,y=255,128,0,0,0,0,128,255);
io3=path(time=xclk,type=linear_closed,num=8,y=255,128,0,0,0,0,128,255);
to=path(time=clk,num=8,y=0,128,250,250,250,250,128,0);
clk40=oscilator(fce=clock,freq=0.025);
xclk=path(time=clk40,type=linear_opened,num=2,y=0,40);
xp=path(time=xclk,type=linear_closed,num=8,y=340,250,140,140,140,140,250,340);
#
bronxmix=mixer(in=bwin,tex=bronx,op=transluency,int=io2);
vedcimix=mixer(in=b2win,tex=vedci,op=transluency,int=io2);
b2win=window(in=trans,win=vedcimix,x=100,y=90,w=219,h=60);
bwin=window(in=b2win,win=bronxmix,x=0,y=90,w=100,h=60);
#
bkg=mixer(tex=t1,op=copy);
tfork=fork(time=clk,num=5,type=timer,
s1=deement,s2=redocs,s3=hellboy,s4=adder,s5=shakul,
t1=0,t2=8,t3=16,t4=24,t5=32);
tsfork=fork(time=clk,num=5,type=timer,
s1=tdeement,s2=tredocs,s3=thellboy,s4=tadder,s5=tshakul,
t1=0,t2=8,t3=16,t4=24,t5=32);
trans=mixer(in=bkg,tex=t2,op=transluency,int=io);
twin=window(in=bwin,win=tfork,x=xp,y=42,w=112,h=156);
nobelwin=window(in=twin,win=nobel,h=30);
titlemix=mixer(in=titlewin,tex=tsfork,op=transluency,int=io3);
titlewin=window(in=nobelwin,win=titlemix,y=210,h=30);
#
sp=path(time=clk,type=linear_opened,num=2,y=255,0);
output=screen(in=titlewin,shade=sp);
#
};
############ zrcadlo.plg ############
zrcadlo.plg:script{
<const.plg>
#
clk=oscilator(fce=clock);
ct=oscilator(fce=clock,freq=3);
ot=oscilator(fce=clock,freq=20);
rr=scene(fps=70,camera=0,xfov=128,yfov=128,name=zrcadlo,cf=ct,of=ot);
sh=path(time=clk,type=linear_opened,num=2,y=-255,0);
output:screen(in=rr,shade=sh);
#
};